home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
EnigmA Amiga Run 1999 March
/
EnigmA AMIGA RUN 35 (1999)(G.R. Edizioni)(IT)[!][issue 1999-03].iso
/
earcd
/
mags-docs
/
libguide
/
mycheck.rexx
< prev
next >
Wrap
OS/2 REXX Batch file
|
1999-01-01
|
2KB
|
66 lines
/*************************************************
* myCheck.rexx to split $Check1 and $Check2 *
* V2.0 © Heiko Schröder 98/99 *
*************************************************
check1=system
check2=LibGuide */
Parse ARG check1","check2
check2=Delstr(check2,1,1)
address command '"SetEnv" Check2='check2
pos1 =pos(" ",check1)
check1=Delstr(check1,1,pos1)
address command '"SetEnv" Version='check1
punkt1=lastpos(".",check1)
pos2 =lastpos(" ",check2)
check2=Delstr(check2,1,pos2)
punkt2=lastpos(".",check2)
If punkt1~=0 then Ganzzahl1=Delstr(check1,punkt1)
If punkt2~=0 then Ganzzahl2=Delstr(check2,punkt2)
If punkt1=0 then Ganzzahl1=-1
If punkt2=0 then Ganzzahl2=-1
If Ganzzahl1<Ganzzahl2 then do
address command '"SetEnv" Checkdev1='0
address command '"SetEnv" Checkdev2='1
Exit
End
If Ganzzahl1>Ganzzahl2 then do
address command '"SetEnv" Checkdev1='1
address command '"SetEnv" Checkdev2='0
Exit
End
If punkt1~=0 then Dezzahl1=Delstr(check1,1,punkt1)
If punkt2~=0 then Dezzahl2=Delstr(check2,1,punkt2)
If Dezzahl1<Dezzahl2 then do
address command '"SetEnv" Checkdev1='0
address command '"SetEnv" Checkdev2='1
Exit
End
If Dezzahl1>Dezzahl2 then do
address command '"SetEnv" Checkdev1='1
address command '"SetEnv" Checkdev2='0
Exit
End
If Dezzahl1=Dezzahl2 then do
address command '"SetEnv" Checkdev1='1
address command '"SetEnv" Checkdev2='1
If length(Dezzahl1)>length(Dezzahl2) then do
address command '"SetEnv" Checkdev1='0
address command '"SetEnv" Checkdev2='1
End
If length(Dezzahl1)<length(Dezzahl2) then do
address command '"SetEnv" Checkdev1='1
address command '"SetEnv" Checkdev2='0
End
Exit
End
Exit